home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / lists / mint / l_1199 / 996 < prev    next >
Encoding:
Internet Message Format  |  1994-08-27  |  4.7 KB
  1. From: Stephen Usher <Stephen.Usher@earth.ox.ac.uk>
  2. Subject: Load average patch for MiNT 1.09.
  3. Date: Fri, 11 Feb 1994 08:12:04 +0000 (GMT)
  4. Mime-Version: 1.0
  5.  
  6. Here's a patch for MiNT 1.09 which gives it an uptime counter and set of
  7. load averages accessed by a system call Suptime().
  8.  
  9. BUGS
  10.  
  11.     The uptime and load average code uses the Vertical Blank Interrupt
  12.     to update its values and assumes that the interrupt will happen
  13.     60 times per second. This is a false assumption on PAL STs running
  14.     in either ST Low or ST Medium resolutions in which case the uptime
  15.     clock will run slow.
  16.  
  17. Anyway, here's the patch, it doesn't include a patch for the makefile as my
  18. makefile is hacked to death.
  19.  
  20. Steve
  21.  
  22. --8<-- Cut -- Here --8<--
  23. *** ../mint.src/loadave.h    Thu Feb 10 20:38:02 1994
  24. --- loadave.h    Thu Feb 10 20:09:46 1994
  25. ***************
  26. *** 0 ****
  27. --- 1,11 ----
  28. + #define TICKS_PER_TOCK        60
  29. + #define TOCKS_PER_SECOND    1
  30. + 
  31. + #define SAMPS_PER_MIN    12
  32. + #define SAMPS_PER_5MIN    SAMPS_PER_MIN * 5
  33. + #define SAMPS_PER_15MIN    SAMPS_PER_MIN * 15
  34. + 
  35. + #define LOAD_SCALE 2048
  36. + 
  37. + extern unsigned long uptime;
  38. + extern unsigned long avenrun[3];
  39. *** ../mint.src/dos.c    Thu Feb 10 20:06:48 1994
  40. --- dos.c    Thu Feb 10 20:40:04 1994
  41. ***************
  42. *** 455,460 ****
  43. --- 455,480 ----
  44.   }
  45.   
  46.   /*
  47. +  * Suptime: get time in seconds since boot and current load averages from
  48. +  * kernel.
  49. +  */
  50. + 
  51. + #include "loadave.h"
  52. + 
  53. + long ARGS_ON_STACK
  54. + s_uptime(cur_uptime, loadaverage)
  55. +     unsigned long *cur_uptime;
  56. +     unsigned long loadaverage[3];
  57. + {
  58. +     *cur_uptime = uptime;
  59. +     loadaverage[0] = avenrun[0];
  60. +     loadaverage[1] = avenrun[1];
  61. +     loadaverage[2] = avenrun[2];
  62. + 
  63. +     return 0;
  64. + }
  65. + 
  66. + /*
  67.    * routine for initializing DOS
  68.    *
  69.    * NOTE: before adding new functions, check the definition of
  70. ***************
  71. *** 588,591 ****
  72. --- 608,612 ----
  73.       dos_tab[0x13a] = p_waitpid;
  74.       dos_tab[0x13b] = d_getcwd;
  75.       dos_tab[0x13c] = s_alert;
  76. +     dos_tab[0x13d] = s_uptime;
  77.   }
  78. *** ../mint.src/proc.c    Thu Feb 10 20:07:00 1994
  79. --- proc.c    Thu Feb 10 20:09:14 1994
  80. ***************
  81. *** 642,647 ****
  82. --- 642,659 ----
  83.   #define qname(x) ((x >= 0 && x < NUM_QUEUES) ? qstring[x] : "unkn")
  84.   #endif
  85.   
  86. + #include "loadave.h"
  87. + 
  88. + unsigned long uptime = 0;
  89. + unsigned long avenrun[3] = {0,0,0};
  90. + unsigned int tick = 0;
  91. + unsigned long number_running;
  92. + unsigned long one_min_ptr = 0, five_min_ptr = 0, fifteen_min_ptr = 0;
  93. + unsigned long sum1 = 0, sum5 = 0, sum15 = 0;
  94. + unsigned char one_min[SAMPS_PER_MIN];
  95. + unsigned char five_min[SAMPS_PER_5MIN];
  96. + unsigned char fifteen_min[SAMPS_PER_15MIN];
  97. + 
  98.   void
  99.   DUMPPROC()
  100.   {
  101. ***************
  102. *** 648,653 ****
  103. --- 660,670 ----
  104.   #ifdef DEBUG_INFO
  105.       PROC *p = curproc;
  106.   
  107. +     FORCE("Uptime: %ld seconds Loads: %ld %ld %ld Processes running: %ld",
  108. +         uptime,
  109. +         (avenrun[0]*100)/2048 , (avenrun[1]*100)/2048, (avenrun[2]*100/2048),
  110. +          number_running);
  111. + 
  112.       for (curproc = proclist; curproc; curproc = curproc->gl_next) {
  113.           FORCE("state %s PC: %lx BP: %lx",
  114.           qname(curproc->wait_q),
  115. ***************
  116. *** 656,659 ****
  117. --- 673,739 ----
  118.       }
  119.       curproc = p;        /* restore the real curproc */
  120.   #endif
  121. + }
  122. + 
  123. + unsigned long gen_average(sum, cur_load, load_array, ptr, max_size)
  124. + long *sum;
  125. + unsigned long cur_load;
  126. + unsigned char load_array[];
  127. + unsigned long ptr;
  128. + int max_size;
  129. + {
  130. +     unsigned long retval;
  131. +     long old_load, new_load;
  132. + 
  133. +     old_load = (long)load_array[ptr];
  134. + 
  135. +     new_load = (long)cur_load;
  136. +     load_array[ptr] = (char)new_load; 
  137. + 
  138. +     *sum += ((new_load - old_load) * LOAD_SCALE);
  139. + 
  140. +     retval = (unsigned long)(*sum / max_size);
  141. + 
  142. +     return retval;
  143. + }
  144. + 
  145. + void calc_load_average()
  146. + {
  147. +     if (tick < TICKS_PER_TOCK)
  148. +         tick++;
  149. +     else
  150. +     {
  151. +         PROC *p;
  152. + 
  153. +         uptime++;
  154. +         tick = 0;
  155. + 
  156. +         if (uptime % 5) return;
  157. + 
  158. +         number_running = 0;
  159. +     
  160. +         for (p = proclist; p; p = p->gl_next)
  161. +             if (p != rootproc)
  162. +                 if ((p->wait_q == 0) || (p->wait_q == 1))
  163. +                     number_running++;
  164. + 
  165. +         avenrun[0] = gen_average(&sum1, number_running,
  166. +             one_min, one_min_ptr++, SAMPS_PER_MIN);
  167. + 
  168. +         if (one_min_ptr == SAMPS_PER_MIN)
  169. +             one_min_ptr = 0;
  170. + 
  171. +         avenrun[1] = gen_average(&sum5, number_running,
  172. +             five_min, five_min_ptr++, SAMPS_PER_5MIN);
  173. + 
  174. +         if (five_min_ptr == SAMPS_PER_5MIN)
  175. +             five_min_ptr = 0;
  176. + 
  177. +         avenrun[2] = gen_average(&sum15, number_running,
  178. +             fifteen_min, fifteen_min_ptr++, SAMPS_PER_15MIN);
  179. + 
  180. +         if (fifteen_min_ptr == SAMPS_PER_15MIN)
  181. +             fifteen_min_ptr = 0;
  182. + 
  183. +     }
  184.   }
  185. --8<-- Cut -- Here --8<--
  186.  
  187. -- 
  188. ---------------------------------------------------------------------------
  189. Computer Systems Administrator, Dept. of Earth Sciences, Oxford University.
  190. E-Mail: steve@uk.ac.ox.earth (JANET) steve@earth.ox.ac.uk (Internet).
  191. Tel:- Oxford (0865) 282110 (UK) or +44 865 282110 (International).
  192.